knitr::opts_chunk$set(
  echo = FALSE,
  cache = FALSE,
  fig.align = "center",
  # fig.height = 2.5,
  out.width="90%",
  comment = "#"
)
library(tidyverse); theme_set(theme_minimal())
library(magrittr)

real_data <- readRDS("~/Documents/Coding/RStudio/Research/comparingCIs.R/simulation results/results_gam/real_data.rds")
N = 400
real_data[[1]]$intervals %>% print(n = Inf)

\newpage

N = 450
real_data[[2]]$intervals %>% print(n = Inf)

\newpage

N = 500
real_data[[3]]$intervals %>% print(n = Inf)

\newpage

N = 550
real_data[[4]]$intervals %>% print(n = Inf)


BriceonWiley/IntegratedLikelihood.R documentation built on Aug. 21, 2020, 11 p.m.